home *** CD-ROM | disk | FTP | other *** search
/ USGS: Geolgic Assessment … in the Colorado Plataeu / USGS Geolgic Assessment of Coal in the Colorado Plataeu - Disc 1.iso / ArcView_Data_Pub / program / ETC / STARTUP.PS < prev    next >
Text File  |  1998-07-17  |  847b  |  38 lines
  1. %
  2. %  Environment dependant variables
  3. %
  4.  
  5. /@sys_path (system.ps) def
  6.  
  7. %
  8. %  Initialize the PostScript machinery
  9. %
  10.  
  11. %(Loading PSI...) print
  12. @sys_path run
  13. %(Done\n) print
  14.  
  15. /printpath { /_str 16 string def
  16.    {(Move: )print exch _str cvs print( )print _str cvs print(\n)print}
  17.    {(Draw: )print exch _str cvs print( )print _str cvs print(\n)print}
  18.    {(Curv: )print 6 -2 roll exch _str cvs print( )print _str cvs print
  19.       ( )print 4 -2 roll exch _str cvs print( )print _str cvs print
  20.       ( )print exch _str cvs print( )print _str cvs print(\n)print}
  21.    {(Done:\n)print} pathforall } @bd
  22.  
  23. %
  24. %  Enter the normal flow
  25. %
  26.  
  27. /@inp (%stdin) (r) file def
  28.  
  29. /@pmt { /@buf 256 string def
  30.     { prompt @inp @buf readline pop cvx exec } loop
  31.       } def
  32.  
  33. /@execut false def
  34. /executive { /@execut true def stop
  35.        } @bd
  36.  
  37. %start
  38.